summaryrefslogtreecommitdiffstats
path: root/VZV.FOR
blob: 2eba76c1f204f605a8f18fe5624132dca85cc2ee (plain) (blame)
1
2
3
4
5
6
7
	SUBROUTINE VZV(IZV,N,IVSOTA)
	DIMENSION IZV(1)
	IVSOTA=0
	DO 10 I=1,N
10	IVSOTA=IVSOTA+IZV(I)
	RETURN
	END